﻿Public Class BeheerMeldingenForm

    Protected Overrides Sub OnLoad(ByVal e As EventArgs)
        Dim bd As New Binding("Rtf", Me.MeldingenBindingSource, "Melding", True)
        RichTextBox1.DataBindings.Add(bd)

        Me.MeldingenTableAdapter.Fill(Me.ArtikelsDataSet.Meldingen)
    End Sub

    Private Sub MeldingenBindingNavigatorSaveItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles MeldingenBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.MeldingenBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.ArtikelsDataSet)
    End Sub

End Class